Sphere　20240520　　　　　戻る



完成図

たんに、地球儀？がくるくる回るだけ、WaitCursorまがいを作る目的でXE3で作ったものを、作り方をすっかりわすれたので復習してみました

地球儀　画像
 #include <fmx.h> #pragma hdrstop #include "Unit1.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.fmx" TForm1 *Form1; int I=1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) {} void __fastcall TForm1::Timer1Timer(TObject *Sender) { Label2->Text=Sphere1->RotationAngle->Y; Sphere1->RotationAngle->Y=Sphere1->RotationAngle->Y+I; } void __fastcall TForm1::FloatAnimation1Process(TObject *Sender) { Sphere1->RotationAngle->Y=Sphere1->RotationAngle->Y+I; } void __fastcall TForm1::Button1Click(TObject *Sender) { I=1; } void __fastcall TForm1::Button2Click(TObject *Sender) { I=-1; } //---------------------------------------------------------------------------
左図はこのプログラムの構造図で、右に番号順にコントロルをFormに貼り付けました。
FloatAnimationはSphereコントロ−ルにドロップしました.
下記は各コントロ−ルのプロパテイ−設定です